home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Leonardo the Inventor
/
Leonardo The Inventor (93026)(Broderbund)(Riverdeep)(2004).iso
/
LEOWINMV
/
QUIZGAM.DIR
/
00265_Script_HTTP scripts (Mac and Win)
< prev
next >
Wrap
Text File
|
1996-03-19
|
931b
|
44 lines
on initLeoURL
global LeoGameURL
set LeoGameURL = "www.softkey.com/catalog/index.htm"
end
on checkLeoGame
initLeoURL
if the machineType = 256 then
return checkLeoGameWin()
else
return checkLeoGameMac()
end if
end
on checkLeoGameMac
global LeoGameURL
openxlib the pathname & "XOBJS:startHTTP"
startHTTP(the pathname & "XOBJS:httpX", LeoGameURL, "")
put the result into gotURL
closexlib the pathname & "XOBJS:startHTTP"
return gotURL contains "true"
end
on checkLeoGameWin
global LeoGameURL
openxlib the pathname & "XOBJS\HTTP"
set httpXObj to http(mNew)
if not objectP(httpXObj) then
alert "Error initializing the HTTP XObject"
return FALSE
end if
httpXObj(mGet, LeoGameURL, "", 0)
put the result into problemsWithURL
httpXObj(mDispose)
closexlib the pathname & "XOBJS\http"
return problemsWithURL = 0
end